﻿Namespace DomainModels
    Public Class Examination
        Inherits DomainModelBase

        Friend Sub New()
            ExaminationType = New ExaminationType
            Schedule = New Schedule
        End Sub

        Property ExaminationId As Integer
        Property GroupId As Integer
        Property ExaminationType As ExaminationType
        Property StudentCode As String
        Property Schedule As Schedule
        Property Grade As Decimal

        Public Shared Function GetDataTable() As DataTable
            Dim table As DataTable = New DataTable("Examinations")
            table.Columns.Add(New DataColumn("ExaminationId", GetType(Integer)))
            table.Columns.Add(New DataColumn("ScheduleId", GetType(Integer)))
            table.Columns.Add(New DataColumn("ExaminationTypeId", GetType(Integer)))
            table.Columns.Add(New DataColumn("GroupId", GetType(Integer)))
            table.Columns.Add(New DataColumn("StudentCode", GetType(String)))
            table.Columns.Add(New DataColumn("Grade", GetType(Decimal)))

            Return table
        End Function

    End Class
End Namespace

